10 POKE53280,6:POKE53281,6:PRINT"[147]   AUSGABE VON BEWEGLICHEN FEIERTAGEN  "
20 INPUT" WELCHES JAHR ";J$:J=VAL(J$)
30 IFJ<1901 OR J>2099 THEN PRINT"ANDERES JAHR EINGEBEN":GOTO 20
40 PRINT"[159] BEWEGLICHE FEIERTAGE IM JAHR";J;":"
50 FORI=2 TO 6:READM$(I):NEXT
60 A=J-INT(J/19)*19:B=J-INT(J/4)*4:C=J-INT(J/7)*7:D=19*A+24:D=D-INT(D/30)*30
70 E=2*B+4*C+6*D+5:E=E-INT(E/7)*7:F=D+E-9:N=F+90-(INT(J/4)=J/4)
80 PRINTCHR$(150)" ROSENMONTAG            ";:M=N-48:GOSUB170
90 PRINT" OSTERSONNTAG           ";:M=N:GOSUB170
100 PRINT" CHRISTI HIMMELFAHRT    ";:M=N+39:GOSUB170
110 PRINT" PFINGSTSONNTAG         ";:M=N+49:GOSUB170
120 PRINT" FRONLEICHNAM           ";:M=N+60:GOSUB170
130 RESTORE:CLR
140 INPUT"NOCHMAL (J/N) ";A$
150 IFA$="J" THEN 10
160 END
170 FOR I=6 TO 2 STEP -1
180 T=INT((158*I-157)/5)+(I>2)*(I-(INT(J/4)<J/4))
190 IF M>T THEN A=M-T:GOSUB220
200 NEXT I:RETURN
210 DATA FEBRUAR,MAERZ,APRIL,MAI,JUNI
220 IFA<10THENPRINT" ";
230 PRINTA"."M$(I)"":I=2:RETURN